﻿Public Class MultiUsuario

#Region "chaves"

    Public Shared Function obtenerIDUsuarioPorCodigoPuesto(ByVal p_codigoPuesto) As Integer
        Dim sql = "SELECT identificacion FROM t_usuario WHERE puesto = codigoPuesto"
        Dim pars(0) As AccesoDatos.Parametro
        Dim dr As IDataReader
        Dim idUsuario = 0
        pars(0) = New AccesoDatos.Parametro("codigoPuesto", p_codigoPuesto)
        Try
            dr = g_access.ejecutarQuery(sql, pars)
        Catch ex As Exception
        End Try
        If dr.Read Then
            idUsuario = dr.Item("identificacion")
        End If
        Return idUsuario
    End Function

#End Region

End Class
